home *** CD-ROM | disk | FTP | other *** search
Text File | 1996-05-21 | 292 b | 22 lines | [TEXT/ttxt] |
- --<<<
-
- in module WebBrowser
-
- class WebApplet ()
- instance variables
- tc
- end
-
- method init self {object WebApplet} #rest args #key tc: browser: -> (
- apply nextmethod self args
- self.tc := tc
- addApplet browser self
- )
-
- method terminate self {object WebApplet} -> (
- -- close self.tc
- )
-
- -->>
-
-